Does anyone see why this wouldn't work?__I'm getting this error Run-time Error ‘1004’:__Unable to set the hidden property of the range class__
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("B13"))
If Not isect Is Nothing Then
If Target = "No" Then
Rows("14:24").Hidden = True
Range("A15:A24") = ""
Range("D15:D24") = ""
Else
Rows("14:24").Hidden = False
End If
End If
End Sub
Keys to the Problem Does anyone see why this wouldn't work?__I'm getting this error Run-time Error ‘1004’:__Unable to set the hidden property of the range class__
Download Error Fixer for Free Now
The you have to unprotect the sheet, hide/unhide the rows, and protect the sheet again, e.g.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("B13"))
If Not isect Is Nothing Then
Me.Unprotect
If Target = "No" Then
Rows("14:24").Hidden = True
Range("A15:A24") = ""
Range("D15:D24") = ""
Else
Rows("14:24").Hidden = False
End If
Me.Protect
End If
End Sub
If you have protected the sheet with a password, say "terceS", use
Me.Unprotect Password:="terceS"
and
Me.Protect Password:="terceS"
Of course, if someone is smart enough to view the code, they'll see the password.
To prevent this, you can protect the VBA project with a password too.
This won't keep hackers out, but it'll thwart casual lookers.
Open Action Center by clicking the Start button Picture of the Start button, clicking Control Panel, and then, under System and Security, clicking Review your computer's status.
Update and run your antivirus software. Windows doesn't come with antivirus software, but Action Center can often monitor the antivirus software that you or your computer manufacturer have installed.
Another Safe way to Repair the Problem: Does anyone see why this wouldn't work?__I'm getting this error Run-time Error ‘1004’:__Unable to set the hidden property of the range class__:
How to Fix Does anyone see why this wouldn't work?__I'm getting this error Run-time Error ‘1004’:__Unable to set the hidden property of the range class__ with SmartPCFixer?
1. Click the button to download SmartPCFixer . Install it on your system. Open it, and it will perform a scan for your system. The errors will be shown in the scan result.
2. After the scan is done, you can see the errors and problems need to be fixed. Click Fix All.
3. When the Fixing part is done, your computer has been speeded up and the errors have been fixed
Related: Way to Update & Download SONY SVE14A2X1EH Wireless State Device driver,How to Update & Download SONY SVS1511X9RB Graphics Driver for D2 (Intel) v.9.17 - 9.17.10.2828,Method to Download SONY VGN-CR290N Realtek High Definition Audio Driver v.5.10.0.5433,Download SONY VGN-FS710/W Utilities DLL Update v.6.4.0.06290 driver,Method to Update & Download SONY VGN-NR460E/P Intel Graphics Media Accelerator Driver v.6.14.10.4847,How to Fix Error 0x0000c1f5 Solución?,Error 0x80071a91 Win7 Fix Patch,Error 0x800ccc60 Windows Live Mail [Solved],Error Message 0x800ccc79 Outlook 2000 Fix,What is Error 0xc1ab0001?,[Answered] x64 saplugin dll,How to Fix Problem - Kb943729 Download?,Troubleshooting: Bccode D1 Error,Java Runtime Tech Support,Troubleshooting: ERROR NO SUCH GROUP Error,Solution to ashoutxt.dll Missing Error,Solution to cxcore096.dll Missing Error,Where can I Find dsauth.dll File,How to Fix msde.dll Not Found Error,Best Method to Fix psizewizres.dll Error
Read More: Fast Solution to Problem: Do all updaters use IE to update?,[Solved] Driver for: VIP Customizing Embroidery System v6.2 USB d\/card reader\/writer driver,Troubleshooting:Disk defragmenters scheduled run task not working,How to Fix - Disk Managment Shrink Volume Size?,Troubleshoot:Does windows 7 disc image burner burn the large iso files to Dual Layer DVDs ?,Data validation question. Maintaining and updating named ranges.,Desktop Gadget Gallery on Windows 7,delete empty rows,Deleting a page and also how can I copy an exact page lay out on a new page,Date Formula for 1st Sunday of each Month (3rd to 9th)
No comments:
Post a Comment