Arkadaşlar S.A.
Ofis 365 kullanıyorum.
Excel tablosunda korumalı sayfalarda bulunan gruplamalar için aşağıdaki
makroyu kullanıyorum. Uzun bir süredir sorunsuz bir şekilde kullanmama rağmen,
bugün dosyayı açtığımda "Invalid procedure call or argument" şeklinde hata mesajı alıyorum.
Ne yapmam gerektiği konusunda yardımcı olabilirseniz çok sevinirim.
Sub auto_open()
With Worksheets("A")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("B")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("C (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("D (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("E (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Ofis 365 kullanıyorum.
Excel tablosunda korumalı sayfalarda bulunan gruplamalar için aşağıdaki
makroyu kullanıyorum. Uzun bir süredir sorunsuz bir şekilde kullanmama rağmen,
bugün dosyayı açtığımda "Invalid procedure call or argument" şeklinde hata mesajı alıyorum.
Ne yapmam gerektiği konusunda yardımcı olabilirseniz çok sevinirim.
Sub auto_open()
With Worksheets("A")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("B")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("C (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("D (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("E (A)")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
