İzinlere göre sayfayı Koru

[nazifdural]

Arkadaşlar merhaba,
Aşağıdaki modüle Aşağıdaki izinleri vererek sayfayı korumasını istiyorum.
Desteklerinizi bekliyorum.
İzin vermek istediklerim.
- Hücreleri biçimlendir
- Satırları biçimlendir
- Sütunları biçimlendir
- Nesneleri düzenle
- Senaryoları düzenle


Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="110220"
Next
MsgBox "TÜM SAYFA KORUMALARI EKLENDİ.", vbInformation
End Sub

 

[DoğanD]

Merhaba,

Aşağıdaki kodu deneyebilirsiniz. Bu tip durumlar için Makro Kaydet özelliğini kullanarak bilmediğiniz kodlara ulaşmak da mümkün.

Worksheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True