mich nervt die Symbolleiste "Überarbeiten", hat jemand eine Lösung wie man diese Symbolleiste loswird?
Immer wieder öffnet sich die Symbolleiste wenn man einen Dateianhang aus einer e-mail öffnet.
Vielen Dank im Voraus
Benjamin
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
' Verhindert die Meldung bei öffnen der Personl.xls
If UCase(Wb.Name) <> UCase("Personl.xls") Then
With Application
.ReferenceStyle = xlA1
End With
End If
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If UCase(Wb.Name) <> UCase("Personl.xls") Then
DeleteCmdBar
End If
End Sub
Private Sub Appli_WorkbookOpen(ByVal Wb As Workbook)
If UCase(Wb.Name) <> UCase("Personl.xls") Then
MsgBox hallo
End If
End Sub
Private Sub Workbook_Open()
Set claX.Appli = Application
End Sub