Compatibilità Office

Hai un problema con Excel?

Nuova discussione

Compatibilità Office
di GB (utente non iscritto) data: 01/07/2015 08:54:04
Giorno
non sono un grande esperto in merito ma comunque ho inserito, in excel, delle userform in workbook_open _close e _save (aggiungo sotto le mie stringhe).
Le stesse funzionano su Pc con Win7 + pacchetto office 2007 pro e 2013 pro mentre non funzionano su Pc con Win7 + pacchetto office Home & Student.
Chiedo aiuto in merito a questo inconveniente, probabilmente sbaglio un comando e quindi non mi ci trovo più.
grazie mille.
Graziano

Private Sub Workbook_Open()
    '
    'richiamare macro
    '
    Call mBackUp
    Call CLOCK
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
    '
    'salvare file rinominadolo secondo cella e data-ore-minuti.seconti
    '
    Dim sh As Worksheet
    Dim strPath As String
    Dim strOldFile As String
    
    Application.DisplayAlerts = False
        With Me
            Set sh = .Worksheets("Revisioni")
            strPath = .Path & ""
            strOldFile = .FullName
            .SaveAs strPath & sh.Range("B2") & " " _
                & Format(sh.Range("D2"), "dd-mm-yyyy_hhmmss"), 52 '56
            If Not .FullName = strOldFile Then Kill strOldFile
        End With
    Application.DisplayAlerts = True
    
    Set sh = Nothing
    
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Non sei autorizzato a salvare con altro nome.Clicca sul pulsante Salva e Chudi", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub

di Vecchio Frac data: 01/07/2015 09:24:36
Per "non funzionano" cosa si intende?
di GB (utente non iscritto) data: 01/07/2015 09:45:53
intendo che in apertura file da errore "RunTime 1004" ed in uscita da "errore 75"
dimenticavo di dire che Office Home & Studend , dove non funziona il tutto, è Ver.2010

di GB (utente non iscritto) data: 01/07/2015 11:01:52
Ho risolto parzialmente la questione degli errori:
in ingresso "RunTime 1004) eliminando la funzione orologio
ed in uscita (salvataggio automatico File) creando una Macro in un modulo (che indico sotto), eliminando tutte le stringhe in workbook, attribuendola ad un pulsante che attivo in un foglio di Excel
ma mi permane l'errore se lascio la stinga per disabilitare il "salva con nome" nella Workbook
Non so come mai ma mi da gli errori solo in Office Student , mentre negli altri Office non ho riscontrato alcun problema di errori

Sub salva()
Set wb = ActiveWorkbook
nomefile = Worksheets("Revisioni").Range("E2").Value
ChDir "C:ExcelBackup"
wb.SaveAs Filename:=nomefile & Format(Now, "_yyyy-mm-dd_hh.mm.ss") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="titaniimmortali", WriteResPassword:="TitaniImmortali", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Compatibilità Office
di GB (utente non iscritto) data: 01/07/2015 09:16:09
Giorno
non sono un grande esperto in merito ma comunque ho inserito, in excel, delle userform in workbook_open _close e _save (aggiungo sotto le mie stringhe) in più il file .xlsm ha delle macro "sub" e Private Sub" in 8 moduli diversi.
Le stesse funzionano su Pc con Win7 + pacchetto office 2007 pro e Pc Win8 + p.o. 2013 pro mentre non funzionano su Pc con Win7 + pacchetto office Home & Student dando degli errori --> in apertura "RunTime Error 1004" ed in chiusura "Errore 75".
Chiedo aiuto in merito a questo inconveniente, probabilmente sbaglio un comando e quindi non mi ci trovo più.
grazie mille.
Graziano

Private Sub Workbook_Open()
    '
    'richiamare macro
    '
    Call mBackUp
    Call CLOCK
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
    '
    'salvare file rinominadolo secondo cella e data-ore-minuti.seconti
    '
    Dim sh As Worksheet
    Dim strPath As String
    Dim strOldFile As String
    
    Application.DisplayAlerts = False
        With Me
            Set sh = .Worksheets("Revisioni")
            strPath = .Path & ""
            strOldFile = .FullName
            .SaveAs strPath & sh.Range("B2") & " " _
                & Format(sh.Range("D2"), "dd-mm-yyyy_hhmmss"), 52 '56
            If Not .FullName = strOldFile Then Kill strOldFile
        End With
    Application.DisplayAlerts = True
    
    Set sh = Nothing
    
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Non sei autorizzato a salvare con altro nome.Clicca sul pulsante Salva e Chudi", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub

di Vecchio Frac data: 01/07/2015 09:25:19
Discussione duplicata.
Non postare due discussioni uguali nelle due sezioni del forum.

Vuoi Approfondire?