Re : De Excel windows a Excel:mac URGENT
jeanpierre à dit:
Re,
As-tu lu le code ?
Si oui, met-il des protections sur les feuilles ?
Si c'est le cas, tu peux les neutraliser, mais ce n'est pas cela qui bloque l'ouverture sous Mac.
Donc, case départ.
voici un des nombreux partie de code ou on parle de password
Private Sub papierproposition()
Sheets(prop1).Unprotect Password:="nath"
Sheets(prop1).Visible = True
Proposition1
Sheets(prop1).PrintOut Copies:=1, Collate:=True
Sheets(prop1).Visible = xlVeryHidden
Sheets(prop1).Protect Password:="nath"
Sheets(prop2).Unprotect Password:="nath"
Sheets(prop2).Visible = True
Proposition2
Sheets(prop2).PrintOut Copies:=1, Collate:=True
Sheets(prop2).Visible = xlVeryHidden
Sheets(prop2).Protect Password:="nath"
Select Case spib
Case 1
Sheets(spibmais).Unprotect Password:="nath"
Sheets(spibmais).Visible = True
Spibmaison
Sheets(spibmais).PrintOut Copies:=1, Collate:=True
Sheets(spibmais).Visible = xlVeryHidden
Sheets(spibmais).Protect Password:="nath"
Case 2
Sheets(spibappart).Unprotect Password:="nath"
Sheets(spibappart).Visible = True
Spibappartement
Sheets(spibappart).PrintOut Copies:=1, Collate:=True
Sheets(spibappart).Visible = xlVeryHidden
Sheets(spibappart).Protect Password:="nath"
End Select
' Lettre de renon
If envoirenon = 0 Then
envoirenon = MsgBox(texte27, vbYesNo + vbDefaultButton2)
End If
If envoirenon = vbYes Then
Sheets(lettrerenon).Unprotect Password:="nath"
Sheets(lettrerenon).Visible = True
lettrederenon
If pasderenon = False Then Sheets(lettrerenon).PrintOut Copies:=1, Collate:=True
Sheets(lettrerenon).Visible = xlVeryHidden
Sheets(lettrerenon).Protect Password:="nath"
If USF14.ComboBox2.ListIndex <> -1 Then
Sheets(lettrerenon2).Unprotect Password:="nath"
Sheets(lettrerenon2).Visible = True
lettrederenon2
Sheets(lettrerenon2).PrintOut Copies:=1, Collate:=True
Sheets(lettrerenon2).Visible = xlVeryHidden
Sheets(lettrerenon2).Protect Password:="nath"
End If
End If
' Lettre de domiciliation
If USF3.ComboBox4.ListIndex = 0 Then
Sheets(domiciliation).Unprotect Password:="nath"
Sheets(domiciliation).Visible = True
lettredomiciliation
Sheets(domiciliation).PrintOut Copies:=1, Collate:=True
Sheets(domiciliation).Visible = xlVeryHidden
Sheets(domiciliation).Protect Password:="nath"
End If
' Impression lettre prix
test = MsgBox(texte24, vbYesNo)
If test = vbYes Then
Sheets(tarif).Unprotect Password:="nath"
Sheets(tarif).Visible = True
ImpressionTarif
Sheets(tarif).PrintOut Copies:=1, Collate:=True
Sheets(tarif).Visible = xlVeryHidden
Sheets(tarif).Protect Password:="nath"
End If
End Sub