Ein Befehl - viele Buttons
04.03.2008 13:32:00
Xico
in einer Übersicht mit ca. 60 OptionButtons bekommt ein User nur Zugriff auf bestimmte Tabellenblätter. Bei Klick auf ein ihm nicht zugeweisene (und augeblendete) Tabelle kommt bei gesperrtem VBA-Projekt der Fehlerhinweis 1004.
Mit folgendem Code, dass ich in die CommandButton_Click einfüge, kann ich dies umgehen; jedoch müsste das in alle 60 Befehle tun; geht das vielleicht einfacher:
im Tabellenblatt:
Private Sub CommandButton1000_Click()
On Error GoTo ErrXico
Sheets(2).Select
ErrXico:
If Err.Number = 1004 Then Rechte
End Sub
StandartModul:
Sub Rechte()
MsgBox "Sie haben keine Berechtigung, diese Funktion aufzurufen.", vbInformation, "Hinweis"
Selection.Select
End Sub
Danke schon jetzt für Rückmeldungen
Xico