|The problem is that the sheet is protected at the end of your cdoe, this means that you will be able to use autofilter unless you specify in the code that you want to allow the use of autofilter.I have made some changes to your code just to make it work a little better. i have also added a comment on how to apply the filter. There may be better ways but here is one|
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim BCell As Range
For Each BCell In Range("A3:F65536")
If BCell.Value = Empty Then
BCell.Locked = True
BCell.Locked = False
ActiveSheet.Protect Password:="Nirvana99*", DrawingObjects:=True, _
contents:=True, Scenarios:=True, AllowFiltering:=True, _
MsgBox "Inorder to ensure maximum protection of your Inputs, please save this organizer from Home page also.", vbOKOnly, "Input Complete"
TO APPLY FILTER
Highligh the headings of the coulms you want the filter to apply to, then right click the selection and select "Filter" then when this expands select "Filter by selected values" Autofilter will be applied to your columns.
Hope this helps.