N
naim
Guest
je viens de debuter avec vba excel.
j'ai crée une application consistant en classeur avec diverses feuilles.
j'ai crée des liens entre feuilles avec une page index pour y accéder.
le programme est comme suit
Private Sub Workbook_Open()
Sheets("index").Activate
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = False
End If
Next
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ThisWorkbook.Worksheets("index")
.ScrollArea = .UsedRange.Address
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = True
End If
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Et pour chaque feuille j'ai introduit
Private Sub Worksheet_Activate()
Worksheets("bangladesh").ShowDataForm
End Sub
le problème c'est que quant j'envoi par mail le fichier excel pour l'utilisation
sur un autre Pc les macros vba précités ne demarrent pas.
Merci de me dire SVP quoi faire.
Sincères salutation.
j'ai crée une application consistant en classeur avec diverses feuilles.
j'ai crée des liens entre feuilles avec une page index pour y accéder.
le programme est comme suit
Private Sub Workbook_Open()
Sheets("index").Activate
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = False
End If
Next
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ThisWorkbook.Worksheets("index")
.ScrollArea = .UsedRange.Address
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = True
End If
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Et pour chaque feuille j'ai introduit
Private Sub Worksheet_Activate()
Worksheets("bangladesh").ShowDataForm
End Sub
le problème c'est que quant j'envoi par mail le fichier excel pour l'utilisation
sur un autre Pc les macros vba précités ne demarrent pas.
Merci de me dire SVP quoi faire.
Sincères salutation.