UserForm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox


Excel-Version: 10.0 (Office XP)
  • UserForm von Thomas H. vom 10.07.2002 - 18:02:30
nach unten

Betrifft: UserForm
von: Thomas H.
Geschrieben am: 10.07.2002 - 18:02:30

In einer Userform steht folgende Code:
Wie kann ich in diesem Code hier einen Tabellenblattschutz aufheben... der Tabellblattname ist mir nicht bekannt.

Das PW ist vorher so erstellt wurden: In Excel wird das Menü für den Blattschutz aufgerufen und einfach mit OK bestätigt. So das die Tabelle geschützt ist aber ohne Buchstaben,Zahlen, Leerzeichen...



Const SpalteDatum% = 3
Const SpalteBetrag% = 4
Const SpalteVzweck% = 5
Const SpalteRnr% = 6

Private Sub cmdOk_Click()

Dim Rechnungsdat As Date
Dim Betrag As Currency

    If IsDate(txtStornoDatum) = False Then
        MsgBox "Fehlerhafte Datumsangabe!"
        Exit Sub
    End If
 Rechnungsdat = CDate(txtStornoDatum)
    
    On Error GoTo Fehlermeldung
    Betrag = CCur(txtStornoBetrag)
    On Error GoTo 0

'hier müßte der Tabellenblattschutz vorher ausgehebelt werden
'ActiveWorksheets.Unprotect funktioniert nicht!

Cells(ActiveCell.Row, SpalteDatum).Formula = Rechnungsdat
Cells(ActiveCell.Row, SpalteBetrag).Formula = Betrag
Cells(ActiveCell.Row, SpalteVzweck).Formula = txtStornoVzweck
Cells(ActiveCell.Row, SpalteRnr).Formula = txtStornoRnr


txtStornoDatum.SetFocus
    
Exit Sub

Fehlermeldung:
    MsgBox "Ungültige Angabe des Rechnungsbetrags!"
End Sub


nach oben   nach unten

Re: UserForm
von: L.Vira
Geschrieben am: 10.07.2002 - 22:51:54

es muss heißen:

ActiveSheet.Unprotect

nicht:

ActiveWorksheet.Unprotect

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "UserForm"