Das Archiv des Excel-Forums

Blattschutz

Bild

Betrifft: Blattschutz
von: Stefan

Geschrieben am: 30.09.2003 08:36:43

ich habe eine datei mit blattschutz. über einen button blende ich eine spalte ein und lasse eine zelle berechnen. mit einem zwieten button lösche ich die zelle wieder und blende die spalte wieder aus.
mein problem ist, das das makro nur arbeitet, wenn ich es in vb starte. mit den buttons geht leider gar nix! kann mir da jemand helfen?


Sub Berechnen()
On Error Resume Next
ActiveSheet.Unprotect "test"
Columns("C:C").Select
Selection.EntireColumn.Hidden = False
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("C1").Select
ActiveSheet.Protect "test"
End Sub



Sub Löschen()
On Error Resume Next
ActiveSheet.Unprotect "test"
Range("C1").Select
Selection.ClearContents
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "test"
End Sub

Bild


Betrifft: AW: Blattschutz
von: Bernhard
Geschrieben am: 30.09.2003 09:01:22

Hallo Stefan
probier folgendes


Sub Berechnen()
On Error Resume Next
'ActiveSheet.Unprotect "test" 
Columns("C:C").Select
ActiveSheet.Unprotect "test" 
Selection.EntireColumn.Hidden = False
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("C1").Select
ActiveSheet.Protect "test"
End Sub


Das Problem hatte ich auch schon.
Problem ist wenn Du einen Butten hast wird mit Mausklick der Focus auf den Button gesetzt. Excel weis dann nicht das Active Sheet dein Arbeitsblatt ist und gibt eine Fehlermeldung.

anderer Lösumngsansatz wäre:
sheets(index).Unprotect "test"

Gruß
Bernhard


Bild


Betrifft: Vielen Dank es funktioniert!!!
von: Stefan
Geschrieben am: 30.09.2003 09:06:00

Danke


Bild


Betrifft: AW: Blattschutz
von: Marc
Geschrieben am: 30.09.2003 09:36:17

Hallo,
man kann auch im Kontextmenü der Buttons einstellen, ob der Button den Fokus bekommen soll . ("TakeFocusOnClick")
Aber dennoch muss das Sheet "unprotected" werden...
Grüsse,
Marc


 Bild

Excel-Beispiele zum Thema " Blattschutz"

Kennwort für Blattschutz download Blattschutz aufheben download
Blattschutzdialog über VBA aufrufen download Blattschutz für eine Serie von Tabellen setzen und aufheben download
Blattschutz beim Speichern setzen download Blattschutz setzen und dennoch mit AutoFiltern download
Blattschutz aufheben, Daten eintragen, Blattschutz setzen download Blattschutz für VBA-Einträge ausschließen download
Blattschutz mit und ohne Passwort aufheben und setzen download Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens download
Blattschutz für alle Arbeitsblätter setzen oder aufheben download