Zellen trotz Blattschutz formatieren
07.09.2006 11:25:31
bearmb00
ich habe eine Tabelle, in der es geschützte und ungeschützte Zellen gibt. Ich verwende den Blattschutz um die Inhalte zu sperren, möchte aber trotzdem in den ungeschützen Zellen noch formatieren können, es sind jedoch alle funktionen ausgeschaltet. Mit hilfe eines Makros habe ich es geschafft, dass einige Funktionen wieder funktionieren (z.b. Autofilter, Makros, usw.). Kann mir jemand weiterhelfen? Hier noch das Makro das ich bisher verwende.
Vielen Dank.
Sub Auto_open()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect (pwd)
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
user = Application.UserName
If user = "Testuser" Then
ActiveSheet.Columns("c").Hidden = False
Else
ActiveSheet.Columns("c").Hidden = True
End If
Application.ScreenUpdating = True
End Sub
Anzeige