Codegeschnipsel - nur OK-Fläche
07.12.2004 09:56:52
Otto
Hallo Harald
Anbei der Code:
Sub Auto_open()
Dim strUserklein, strUsergross As String
Dim myTime As Date
Dim arr As Variant
Dim iRow As Integer
On Error Resume Next
strUserklein = Environ("Username")
strUsergross = UCase(strUserklein)
''strUsergross = "REINHARD"
arr = Range("Kürzel_Username")
iRow = Application.Match(strUsergross, arr, 0)
' Worksheets("Planung").Visible = xlSheetVisible
' Worksheets("Spezialtage").Visible = xlSheetHidden
If iRow = 0 Then
MsgBox "Ihre Kennung erlaubt nur ein Einsichtsrecht!" & vbLf & "Die Daten werden nach Bestätigung in einer geschützten Ansicht dargestellt."
Call Geschützte_Einsicht
Else
If Range("e1").Offset(3, iRow - 1).Value = "Montage" Then Call Montage
If Range("e1").Offset(3, iRow - 1).Value = "Automation" Then Call Automation
If Range("e1").Offset(3, iRow - 1).Value = "VTS" Then Call VTS
If Range("e1").Offset(3, iRow - 1).Value = "VCH" Then Call VCH
End If
'Call Wochenende_Optimierung
Worksheets("Planung").Visible = xlSheetVisible
Worksheets("Spezialtage").Visible = xlSheetVisible
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Planung" Then Sheets(InI).Visible = False
Next InI
End
Call Gehe_Zu_Heute
Worksheets("Planung").Visible = xlSheetVisible
Worksheets("Spezialtage").Visible = xlSheetHidden
End Sub
Ich habe die betreffenden Zeilen mit !!!!!!! eingeschlossen.
Also, ich habe eine Tabelle die freigegeben ist. Da auch andere eine Einsicht haben dürfen (nur Einsicht), stelle ich diesen eine Kopie zur Verfügung (Call Geschützte_Einsicht). Vorher mache ich Sie darauf aufmerksam - mit der MsgBox.
Problem: Wenn jemand auf das X drückt, schliesst sich die MsgBox und das Makro wird nicht sauber zu Ende geführt, d.h. sie haben Zugriff auf die Daten und nicht nur Einsicht.
Kannst Du mir weiterhelfen - die einfachste Lösung wäre einfach, die MsgBow wegzulassen, doch das möchte ich nicht.
Gruss Otto