Run time error 1004 unable to set the hidden property of the range class

[muraterguden]

Merhaba,

Kullanıcıların data girmesi için oluşturduğum bir sayfam var.

Bu sayfada bazı kolonları gerekmedikçe gizlenip açılması için iki basit makro kaydettim. Buraya kadar sorun yok ancak bu sayfanın formüllerinin korunması sayfa koruma aktif edince

Run time error 1004
Unable to set the hidden property of the range class

hatasını alıyorum.

Makronun görüntüsü de aşağıdaki şekilde


Sub CLOSEINFO()
'
' CLOSEINFO Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Columns("B:W").Select
Range("W1").Activate
Selection.EntireColumn.Hidden = True
End Sub
Sub OPENINFO()
'
' OPENINFO Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Columns("A:X").Select
Selection.EntireColumn.Hidden = False
End Sub

Bu makroların sayfa korumalıyken de ilgili kolonları açıp kapayabilmesi için ne yapmak gerekir?

Şimdiden teşekkürler

Murat

 

[Ömer BARAN]

Merhaba.
Sayfa koruma seçeneklerinden "Sütunları Biçimlendir"in başındaki onay kutusunu işaretleyerek koruma uygulayın,
ayrıca kodlar aşağıdaki şekilde daha doğru olur.
.

Sub CLOSEINFO()
    Columns("B:W").EntireColumn.Hidden = True
End Sub

Sub OPENINFO()
    Columns("B:W").EntireColumn.Hidden = False
End Sub