سلام
تو یه فرم یه کلید اضافه و تو قسمت on click کدی که آقای amirzazadeh
دادن رو کپی کنید بعد باز زدن کلید جداولتون مخفی میشه وبرای برگرداندن از این کد استفاده کنید

Dim dbs As Database, tdf As TableDef        Set dbs = CurrentDb    For Each tdf In dbs.TableDefs    If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _    And tdf.Attributes = 1 Then            tdf.Attributes = tdf.Attributes - dbHiddenObject            ElseIf Left(tdf.name, 4) <> "msys" Then tdf.Attributes = 0    End If    Next tdf    Set dbs = Nothing                    MsgBox "از حالت مخفي خارج شدند لطفا دوباره برنامه را اجرا کنيد", vbOKOnly, "پيام"

'DoCmd.Quit