Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz

Blattschutz
30.09.2003 08:36:43
Stefan
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz
30.09.2003 09:01:22
Bernhard
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
Anzeige
Vielen Dank es funktioniert!!!
30.09.2003 09:06:00
Stefan
Danke
AW: Blattschutz
30.09.2003 09:36:17
Marc
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige