ActiveSheet.Unprotect - Laufzeitfehler

Hallo, wer kann mir helfen?

Ich will über eine Userform das ActiveSheet (indem Fall: "Teilgewicht") wieder freigeben (Schutz aufheben)

ich setze dazu den Befehl ActiveSheet.Unprotect ein

das funktioniert aber nur einmal.
Zur Erklärung:
ich gebe das Blatt frei, schreibe dann einige Daten auf das Blatt,
- schütze das blatt dann wieder mit ActiveSheet.Protect,
- dann minimiere ich die UF (mit uf.hide) und gehe auf das Blatt "Teilgewicht" mache da einige Eingaben.
- Mittels uf.show gehe ich zurück in meine UF.

funktioniert einmal

wenn ich diese sub dann nochmal starte, um z.B. Eingaben zu korrigieren erhalte ich folgende Fehlermeldung:

Laufzeitfehler 1004
Die Unprotect-Methode des Worksheet-Objektes ist fehlerhaft.

Wer kann mir sagen was ich Falsch mache und wies richtig ist?
Eine genau Erklärung zum Laufzeitfelhler 1004 habe ich in der Hilfe nicht gefunden.

Für Eure Hilfe bedanke ich mich im voraus.

Gruß
Raik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, hier der Code, vielleicht kann man ja was draus erkennen?

Danke + Gruß Raik

Private Sub TG_Berechnung_Click()
If Range("kalkulation!a3") = 0 Then 'nur ausführen wenn nicht Öffnen aufgerufen
Dim Blatt As Object
Dim Aussenmass As Double, Innenmass As Double, Dichte As Double, TL As Double
Dim Fläche As Double, TG_ohne As Double

If IsNumeric(Me.TL.Value) And IsNumeric(Me.Aussenmass.Value) And _
IsNumeric(Me.Dichte.Value) Then
Sheets("Teilgewicht").Activate
ActiveWindow.WindowState = xlMaximized

'If ActiveSheet.Protect = True Then ActiveSheet.Unprotect
ActiveSheet.Unprotect

Range("TL").FormulaLocal = Me.TL.Value
Range("Aussenmass").FormulaLocal = Me.Aussenmass.Value
Range("Dichte").FormulaLocal = Me.Dichte.Value

' ANFANG: TG-ohne Berechnung

If IsNumeric(Me.Aussenmass.Value) Then Aussenmass = Me.Aussenmass.Value Else Aussenmass = 0
If IsNumeric(Me.Innenmass.Value) Then Innenmass = Me.Innenmass.Value Else Innenmass = 0
If IsNumeric(Me.Dichte.Value) Then Dichte = Me.Dichte.Value Else Dichte = 0
If IsNumeric(Me.TL.Value) Then TL = Me.TL.Value Else TL = 0

If Option1Rund = True Then 'TG-ohne Berechnung für Rundmaterial
Range("A4").FormulaLocal = "Rundmat. Ø [mm]: "
Range("Aussenmass").NumberFormat = "#,##0.00"
Range("Innenmass").ClearContents
TG_ohne = Application.WorksheetFunction.Pi / 4 * Aussenmass ^ 2 * TL * Dichte
Fläche = Application.WorksheetFunction.Pi / 4 * Aussenmass ^ 2
End If

If Option2Rohr = True And IsNumeric(Me.Innenmass.Value) Then 'TG-ohne Berechnung EG für Rohrmaterial
Range("A4").FormulaLocal = "Rohr AD x ID [mm]: "
Range("Aussenmass").NumberFormat = "#,##0.00 x"
Range("Innenmass").FormulaLocal = Me.Innenmass.Value
TG_ohne = Application.WorksheetFunction.Pi / 4 * (Aussenmass ^ 2 - Innenmass ^ 2) * vs * Dichte
Fläche = Application.WorksheetFunction.Pi / 4 * (Aussenmass ^ 2 - Innenmass ^ 2)
End If

If Option3Vierkant = True Then 'TG-ohne Berechnung für Vierkantmaterial
Range("A4").FormulaLocal = "Vierkantmat. SW [mm]: "
Range("Aussenmass").NumberFormat = "#,##0.00"
Range("Innenmass").ClearContents
TG_ohne = Aussenmass ^ 2 * TL * Dichte
Fläche = Aussenmass ^ 2
End If

If Option4Sechskant = True Then 'TG-ohne Berechnung für Sechskantmaterial
Range("A4").FormulaLocal = "Sechskantmat. SW [mm]: "
Range("Aussenmass").NumberFormat = "#,##0.00"
Range("Innenmass").ClearContents
TG_ohne = 2 * (Aussenmass / 2) ^ 2 * Sqr(3) * TL * Dichte
Fläche = 2 * (Aussenmass / 2) ^ 2 * Sqr(3)
End If

If IsNumeric(TG_ohne) Then TG_ohne = Application.WorksheetFunction.RoundUp(TG_ohne, 0) Else TG_ohne = 0
If IsNumeric(Fläche) Then Fläche = Application.WorksheetFunction.RoundUp(Fläche, 2) Else Fläche = 0

Range("TG_ohne").FormulaLocal = TG_ohne
Range("Flaeche").FormulaLocal = Fläche

' ENDE: TG-ohne Berechnung

'If ActiveSheet.Protect = False Then ActiveSheet.Protect
ActiveSheet.Protect

For Each Blatt In Sheets
If Blatt.Name <> ActiveSheet.Name Then
Blatt.Visible = False
End If
Next Blatt

Range("b8").Activate

frmDialog1.Hide
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

ActiveSheet.Unprotect - Laufzeitfehler

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ActiveSheet.Unprotect - Laufzeitfehler

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread