Geht so was?
Geht so was?
grundsätzlich ist die kennwortbelegung dazu da die inhalte zu schützen, nicht aber die ansicht. du kannst jedoch über den umweg eines workbook_open makros die ganze sache einrichten....
fragen??
michel
wie mache ich das?
(danke für die schnelle hilfe)
Dein Vorhaben könnte man mit einem Worksheet-Activate-VBA erledigen
Wenn nicht das Kennwort "Hugo" eingegeben wird, springt die Anwendung ins 3. Blatt der MAppe.
Gruss
Otto H
grundsätzlich ist ottos vorschlag genau das, allerdings würde ich folgendes formulieren:
fragen??
michel
danke, funktioniert super, nur ein hacken wenn man dann das blatt anglickt welches geschützt werden soll geht er erstmal hin und die Message-Box öffnet sich dort und man kann solange das fenster auf ist drin lesen. ;-(
natürlich kein private sub worksheet_activate sondern ein private sub workbook_open machen.....
sorry...
michel
fragen??
michel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Tabelle1").Visible = xlVeryHidden //Beschriftung des Blattes ist: Steigerung !!!!!!!!!
End Sub
Private Sub Worksheet_Activate()
Dim kennwort As String
kennwort = InputBox("Kennwort")
If kennwort = "Hugo" Then
Sheets("Tabelle1").Visible = True
Sheets("Tabelle1").Activate
Else
MsgBox ("Falsches Kennwort!")
Sheets(2).Activate
End If
End Sub
Sheets("Steigerung NZG").Visible = xlVeryHidden
End Sub
Private Sub Worksheet_Activate()
Dim kennwort As String
kennwort = InputBox("Kennwort")
If kennwort = "Hugo" Then
Sheets("Steigerung NZG").Visible = True
Sheets("Steigerung NZG").Activate
Else
MsgBox ("Falsches Kennwort!")
Sheets(2).Activate
End If
End Sub
aber man sieht das Blatt immernoch wenn man das Kennwort eingeben muss!!!
setze anstelle von worksheet_activate in 'diese arbeitsmappe' workbook_open. Dann kommt die passwortabfrage beim öffnen. Stimmt das passwort nicht, kann der nutzer alles tun ausser dieses eine blatt sehen.
fragen??
wenns nicht klappt schick mir die datei (soweit ich sie sehen darf doch kurz zu)
michel
Beim Öffnen springt die Anwendung in Zelle A100 (wo hoffentlich nichts mehr steht) und nach erfolgreicher Öffnung wieder nach A1.
Gruss Otto
wollte das ganze jetzt mal in ein anderes Projekt einbauen.
Wie komme ich zu dem Fenster für das Workbook, wenn ich bei dem Datenblatt auf Code gehe öffne ich den editor für worksheet.
Noch ne frage
Hab so ne formel
Mittelwert(B3:M3)
Nun kann es sein, daßß noch 0 drin vorkommen, wenn ein werrt in dieser reihe 0 ist soll er nicht beachtet werden:
BSP:
2 3 4 5 6 7 2 4 Mittelwert : 4,12 (halt durch 8)
wenn aber
2 3 0 5 6 0 2 4 Mittelwert: 3,666666666 (halt durch 6)
fang für eine neue Frage bitte einen neuen Thread an - die Verwaltung der Beiträge fürs Archiv wird sonst zu unübersichtlich.
Gruß
Peter
=SUMME(B3:M3)/((ANZAHL(B3:M3))-ZÄHLENWENN(B3:M3;0))
wenn du immer den gleichen bereich hast kannst du das anzahl(b3:m3) weglassen und dafür 12 setzen.....
fragen??
wenn ja per mail wg. den treads
michel