Tomas!
fiz a muddança mas ta dando "erro esta pasta de trabalho".
o codigo todo é esse:
Código: Selecionar todos
Option Explicit
Private Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Function DriveType(DriveLetter As String) As String
DriveLetter = Left(DriveLetter, 1) & ":\"
Select Case GetDriveType(DriveLetter)
Case 5: DriveType = "CDROM"
End Select
End Function
Private Sub Workbook_Open()
Dim LetterCode As Long
Dim Row As Long
Dim DT As String
Range("G1:H1") = Array("Tipo", "Drive")
Row = 2
For LetterCode = 65 To 90
DT = DriveType(Chr(LetterCode))
If DT <> "Non-existent" Then
Cells(Row, 8) = Chr(LetterCode) & ":\"
Cells(Row, 7) = DT
Row = Row + 1
End If
Next LetterCode
Worksheet("NomeDaSuaPlanilha").Range("I2").FormulaR1C1 = "=(VLOOKUP(R[-1]C,RC[-2]:R[25]C[-1],2,FALSE))"
Worksheet("NomeDaSuaPlanilha").Range("F2:F52").FormulaR1C1 = "=CONCATENATE(R2C9,RC[4])"
Dim existe As Boolean
'******** Desabilita as barras do excel ******
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
existe = False
With Application
For Each barra In .CommandBars
If barra.Name = "xxx" Then
barra.Visible = True
existe = True
Exit For
End If
Next
If existe = False Then
Set cbar1 = .CommandBars.Add(Name:="xxx", MenuBar:=True)
Set myBlankBtn = .CommandBars("xxx").Controls.Add(Type:=msoControlButton, ID:=18)
Set myBlankBtn = .CommandBars("xxx").Controls.Add(Type:=msoControlButton, ID:=4)
cbar1.Visible = True
End If
End With
End Sub
primeiro é para buscar as informações do CD, depois para concatenar a informação com o caminho do arquivo, e por final coloquei um codigo que oculpa as planilhas.
coloquei tudo no "Esta Pasta de Trabalho"
o erro que deu é que precisa de "sub" ou "function"
com esse codigo da pra saber o erro??
desde ja agradeço a atenção!!
abraços!!