Excel Workbook Help!

Olá Alanna1280,



Creio que só é possível a partir de uma macro.

Coloquei a instancia "Open" o seguinte código:

Private Sub Workbook_Open()
data = Day(Date)
If data < 10 Then
data = "00" & data
Else
data = "0" & data
End If
BloqueiaDemaisPlanilhas (data)
AbrePlanilhaPorDia (data)
End Sub





E dentro de um módulo o código abaixo:



Sub AbrePlanilhaPorDia(data)
data = Day(Date)
On Error GoTo err
If data < 10 Then
data = "00" & data
Else
data = "0" & data
End If
Sheets(data).Select
ActiveSheet.Unprotect "1234"

Exit Sub

err:
Sheets("outra").Select
ActiveSheet.Unprotect "1234"

End Sub

Sub BloqueiaDemaisPlanilhas(data)
Dim NomePlan As String
Set i = Sheets
For Each i In Sheets
NomePlan = i.Name
If i.Name <> data Then
i.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
ActiveSheet.EnableSelection = xlNoSelection

End If

Next
End Sub



Segue em anexo o arquivo para você testar. espero ter ajudado!



Raul Nunziato