Office: (Office 2007) Makro: CommandButtons sperren

Hallo zusammen,

ich muss in einer Datei, mehrere Vorgänge durchlaufen, die erst von mehreren leuten freigegeben werden müssen. Ich möchte aber auch, dass bestimmte Leute nicht auf vorgegebene CommandButtons drücken können.

Sobald ein CommandButton gedrückt wird, entsperre ich über

For inti = 1 To Worksheets.Count
Worksheets(inti).Unprotect Password:="ivogt"
Next

Die Reiter und sperre sie nach den Berechnungen wieder mit

For inti = 1 To Worksheets.Count
Worksheets(inti).Protect UserInterfaceOnly:=True, Password:="ivogt", DrawingObjects:=False, Contents:=True, Scenarios:=True
Next

Wie kann ich es denn aber jetzt schaffen, dass automatisch auch z.B. Command Button2 und CommandButton 4 nicht mehr zu betätigen sind?


Ideen?

Möglichkeit den CommandButton auch "aus-zu-grauen" ??

Danke für eure Hilfe!!!

Grüße
Felix

:)

 

Hallo!

Um einen Button nicht mehr vom Anwender auswählen zu lassen, muss die Eigenschaft Enabled von dem Button auf False gesetzt werden! (ausgrauen)

Gruß
rastrans

 

Aber was bedeutet das für den Befehl??

For inti = 1 To Worksheets.Count
Worksheets(inti).Protect UserInterfaceOnly:=True, Password:="ivogt", DrawingObjects:=False, Contents:=True, Scenarios:=True
Next

Wo muss das rein?

Danke und Grüße
Felix

 

Hallo,
ich habe ein ähnliches Problem mit einer IF,Then Anweisung in der intialisierung der Form durchgeführt.
Schau mal, vielleicht hilft das
Private Sub UserForm_initialize()
If Sheets("b2").Range("b3") > 0 Then
CmdD6.Visible = False
CmdD5.Visible = False
End If
end sub

Hier blende ich die Cmd-Buttons total aus
ausgrauen wäre
CmdD5.Enabled = False

Gruß
De Babba
PS.: ich erwarte keinen Nobelpreis für diesen Tipp, aber ein Feedback wäre schon nett*grins

 

Hall Babba,

verstehe jetzt zwar das Prinzip aber möchte das in meinen einfachen Befehl integrieren. Geht das auch?

Wie Du sicher merkst bin ich totaler Makro-Laie!! Ich habe keine Ahnung was Dein Befehl macht und wie ich ihn in meinen integrieren könnte.

That isssssss theeeee problem.

Grüße
Felix

 

Wo ist denn dein Button? In einem UserForm oder direkt in deinemarbeitsbereich eingebettet?

 

Ich tippe jetzt einfach mal in meinem Arbeitsbereich.....

Das hier schützt den Reiter dann wieder:

For inti = 1 To Worksheets.Count
Worksheets(inti).Protect UserInterfaceOnly:=True, Password:="ivogt", DrawingObjects:=False, Contents:=True, Scenarios:=True
Next

Kann ich da nicht irgendwie sagen CommandButton2:=False oder so ähnlich???

Grüße
Felix

 

Hi felix,
Wenn die Schaltfläche in einer normalen Tabell ist sprich Arbeitsbereich, so muß ich leider passen.
Gruß
De babba