ich habe eine Mappe mit zahlreichen Makro und Buttons. Es gibt jedoch ein Button/Makro, der nur von "Admins" benutzt werden soll.
Wie kann man so etwas am besten lösen. In diesem Bereich habe ich noch überhaupt keine Knowledge.
Dank ju well...
ich habe eine Mappe mit zahlreichen Makro und Buttons. Es gibt jedoch ein Button/Makro, der nur von "Admins" benutzt werden soll.
Wie kann man so etwas am besten lösen. In diesem Bereich habe ich noch überhaupt keine Knowledge.
Dank ju well...
Passwortschutz über Userform einfügen. Nur bei Eingabe des richtigen Passwortes wird die Prozedur ausgeführt.
Dazu braucht man ne Userform mit Textbox die bei Click aus deinen Button aktiviert wird. Textboxeingabe kannst du mit Befehl Passwordchar verschlüsseln.
Kann dir gerne mal nen Code schicken, sowas muss irgendwo auf meinem Rechner liegen.
Gruss Andi_H
userform_initialize()
textbox1.passwordchar = "*"
end sub
constpw = schutz
private sub commandbutton1_click()
if textbox1.text = pw then
userform1.hide
application.run "deine OProzedur als MAkro, hier nur den Namen des Makros rein"
end if
userform1.hide
end sub
hab nur was ohne schleife gefunden aber funtioniert#
gruss,
andi_h
hab nur bei dem const pw die " " vergessen.
Falls Probleme gibt, bin noch ne weile im Forum.
Habe diesen Code jetzt hinter die UserForm gelegt:
Private Sub UserForm_Initialize()
textbox1.PasswordChar = "*"
End Sub
constpw = "schutz"
End Sub
Auf meinem Button liegt jetzt folgendes:
Private Sub AddTeilprojektButton_Click()
If textbox1.Text = pw Then ' hier meckert er, dass ein Objekt erforderlich ist
Passwort_Eingabe.Hide
Application.Run "Teilprojekt hinzufügen"
End If
PasswortBox.Hide
End Sub
Hilfe?!!! Siehe Kommentar
Wäre des weiteren nett, wenn man auch auf abbrechen drücken könnte. Was passiert denn überhaupt bei Falscheingabe???
Mein Code sieht nun so aus:
Button auf Sheet:
Private Sub AddTeilprojektButton_Click()
PasswortBox.Show
End Sub
dann auf der Form:
Private Sub UserForm_Initialize()
PwTextBox.PasswordChar = "*"
End Sub
Private Sub PwButton_Click()
constpw = "schutz"
If PwTextBox.Text = pw Then
Passwort_Eingabe.Hide
Application.Run "Teilprojekt hinzufügen"
End If
PasswortBox.Hide
End Sub